home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / simple5a / frmhtmle.frm < prev    next >
Text File  |  1999-09-19  |  26KB  |  881 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "SHDOCVW.DLL"
  4. Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
  5. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  6. Begin VB.Form frmHTMLEditor 
  7.    Caption         =   "Bernie's Simple HTML Editor"
  8.    ClientHeight    =   6390
  9.    ClientLeft      =   1860
  10.    ClientTop       =   2025
  11.    ClientWidth     =   7485
  12.    Icon            =   "frmHTMLEditor.frx":0000
  13.    LinkTopic       =   "Form1"
  14.    ScaleHeight     =   6390
  15.    ScaleWidth      =   7485
  16.    Begin VB.CommandButton cmdBTApproved 
  17.       Caption         =   "BT Scheme"
  18.       Height          =   495
  19.       Left            =   2400
  20.       TabIndex        =   17
  21.       Top             =   3840
  22.       Visible         =   0   'False
  23.       Width           =   1095
  24.    End
  25.    Begin MSComDlg.CommonDialog CommonDialog1 
  26.       Left            =   4560
  27.       Top             =   3600
  28.       _ExtentX        =   847
  29.       _ExtentY        =   847
  30.       _Version        =   393216
  31.    End
  32.    Begin VB.TextBox txtPicture 
  33.       Height          =   285
  34.       Left            =   3840
  35.       TabIndex        =   15
  36.       Top             =   3240
  37.       Visible         =   0   'False
  38.       Width           =   1650
  39.    End
  40.    Begin VB.CommandButton cmdPicture 
  41.       Caption         =   "?"
  42.       BeginProperty Font 
  43.          Name            =   "MS Sans Serif"
  44.          Size            =   8.25
  45.          Charset         =   0
  46.          Weight          =   700
  47.          Underline       =   0   'False
  48.          Italic          =   0   'False
  49.          Strikethrough   =   0   'False
  50.       EndProperty
  51.       Height          =   255
  52.       Left            =   5520
  53.       TabIndex        =   14
  54.       Top             =   3240
  55.       Visible         =   0   'False
  56.       Width           =   255
  57.    End
  58.    Begin VB.CommandButton cmdCancelColor 
  59.       Caption         =   "&Cancel"
  60.       Height          =   495
  61.       Left            =   3600
  62.       TabIndex        =   13
  63.       Top             =   3840
  64.       Visible         =   0   'False
  65.       Width           =   1095
  66.    End
  67.    Begin VB.CommandButton cmdColorDone 
  68.       Caption         =   "&Done"
  69.       Height          =   495
  70.       Left            =   4800
  71.       TabIndex        =   12
  72.       Top             =   3840
  73.       Visible         =   0   'False
  74.       Width           =   1095
  75.    End
  76.    Begin VB.ComboBox Combo4 
  77.       Height          =   315
  78.       Left            =   3840
  79.       TabIndex        =   7
  80.       Top             =   2880
  81.       Visible         =   0   'False
  82.       Width           =   1935
  83.    End
  84.    Begin VB.ComboBox Combo3 
  85.       Height          =   315
  86.       Left            =   3840
  87.       TabIndex        =   6
  88.       Top             =   2520
  89.       Visible         =   0   'False
  90.       Width           =   1935
  91.    End
  92.    Begin VB.ComboBox Combo2 
  93.       Height          =   315
  94.       Left            =   3840
  95.       TabIndex        =   5
  96.       Top             =   2160
  97.       Visible         =   0   'False
  98.       Width           =   1935
  99.    End
  100.    Begin VB.ComboBox Combo1 
  101.       Height          =   315
  102.       Left            =   3840
  103.       TabIndex        =   4
  104.       Top             =   1800
  105.       Visible         =   0   'False
  106.       Width           =   1935
  107.    End
  108.    Begin SHDocVwCtl.WebBrowser WebBrowser1 
  109.       Height          =   375
  110.       Left            =   120
  111.       TabIndex        =   3
  112.       Top             =   840
  113.       Visible         =   0   'False
  114.       Width           =   1815
  115.       ExtentX         =   3201
  116.       ExtentY         =   661
  117.       ViewMode        =   0
  118.       Offline         =   0
  119.       Silent          =   0
  120.       RegisterAsBrowser=   0
  121.       RegisterAsDropTarget=   1
  122.       AutoArrange     =   0   'False
  123.       NoClientEdge    =   0   'False
  124.       AlignLeft       =   0   'False
  125.       ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  126.       Location        =   ""
  127.    End
  128.    Begin RichTextLib.RichTextBox rtbHTML 
  129.       Height          =   1455
  130.       Left            =   120
  131.       TabIndex        =   2
  132.       Top             =   840
  133.       Visible         =   0   'False
  134.       Width           =   615
  135.       _ExtentX        =   1085
  136.       _ExtentY        =   2566
  137.       _Version        =   393217
  138.       Enabled         =   -1  'True
  139.       ScrollBars      =   3
  140.       TextRTF         =   $"frmHTMLEditor.frx":0442
  141.    End
  142.    Begin MSComctlLib.Toolbar Toolbar1 
  143.       Align           =   1  'Align Top
  144.       Height          =   630
  145.       Left            =   0
  146.       TabIndex        =   1
  147.       Top             =   0
  148.       Width           =   7485
  149.       _ExtentX        =   13203
  150.       _ExtentY        =   1111
  151.       ButtonWidth     =   1191
  152.       ButtonHeight    =   953
  153.       Appearance      =   1
  154.       _Version        =   393216
  155.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  156.          NumButtons      =   4
  157.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  158.             Caption         =   "Editor"
  159.             Key             =   "Editor"
  160.             Description     =   "Editor"
  161.             Object.ToolTipText     =   "HTML Edit Mode"
  162.             BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628} 
  163.                NumButtonMenus  =   1
  164.                BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628} 
  165.                EndProperty
  166.             EndProperty
  167.          EndProperty
  168.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  169.             Caption         =   "Preview"
  170.             Key             =   "Preview"
  171.             Description     =   "Preview"
  172.             Object.ToolTipText     =   "Preview HTML creation"
  173.          EndProperty
  174.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  175.             Style           =   3
  176.          EndProperty
  177.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  178.             Caption         =   "Exit"
  179.             Key             =   "Exit"
  180.             Description     =   "EXIT"
  181.             Object.ToolTipText     =   "Exit"
  182.          EndProperty
  183.       EndProperty
  184.    End
  185.    Begin MSComctlLib.StatusBar StatusBar1 
  186.       Align           =   2  'Align Bottom
  187.       Height          =   375
  188.       Left            =   0
  189.       TabIndex        =   0
  190.       Top             =   6015
  191.       Width           =   7485
  192.       _ExtentX        =   13203
  193.       _ExtentY        =   661
  194.       _Version        =   393216
  195.       BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
  196.          NumPanels       =   1
  197.          BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  198.          EndProperty
  199.       EndProperty
  200.    End
  201.    Begin VB.Label Label1 
  202.       Caption         =   "Background Pic:"
  203.       Height          =   255
  204.       Index           =   4
  205.       Left            =   2520
  206.       TabIndex        =   16
  207.       Top             =   3240
  208.       Visible         =   0   'False
  209.       Width           =   1215
  210.    End
  211.    Begin VB.Label Label1 
  212.       Caption         =   "Visited Link:"
  213.       Height          =   255
  214.       Index           =   3
  215.       Left            =   2520
  216.       TabIndex        =   11
  217.       Top             =   2880
  218.       Visible         =   0   'False
  219.       Width           =   855
  220.    End
  221.    Begin VB.Label Label1 
  222.       Caption         =   "Unvisited Link:"
  223.       Height          =   255
  224.       Index           =   2
  225.       Left            =   2520
  226.       TabIndex        =   10
  227.       Top             =   2520
  228.       Visible         =   0   'False
  229.       Width           =   1095
  230.    End
  231.    Begin VB.Label Label1 
  232.       Caption         =   "Text:"
  233.       Height          =   255
  234.       Index           =   1
  235.       Left            =   2520
  236.       TabIndex        =   9
  237.       Top             =   2160
  238.       Visible         =   0   'False
  239.       Width           =   615
  240.    End
  241.    Begin VB.Label Label1 
  242.       Caption         =   "Background:"
  243.       Height